(make-face-x-resource-internal): Don't mess with terminal frames.

diff --git a/lisp/faces.el b/lisp/faces.el
index 38d81e9eae6d967f6a7ad2cca57cb65576084098..06f3c4bdc3e8e46c2259719ec16c16d3cba6f145 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -238,8 +238,9 @@ If the face already exists, it is unmodified."
   (cond ((null frame)
         (let ((frames (frame-list)))
           (while frames
-            (make-face-x-resource-internal (face-name face)
-                                           (car frames) set-anyway)
+            (if (eq (framep (car frames)) 'x)
+                (make-face-x-resource-internal (face-name face)
+                                               (car frames) set-anyway))
             (setq frames (cdr frames)))))
        (t
         (setq face (internal-get-face (face-name face) frame))